home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue30 / bdeorx / BDEDORX.ZIP / D1 / BDEDORXP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-10-15  |  1.1 KB  |  54 lines
  1. unit BDEDoRxP;
  2.  
  3. {$S-}
  4.  
  5. interface
  6.  
  7. uses
  8.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  9.   Forms, Dialogs, StdCtrls;
  10.  
  11. type
  12.   TProgressDlg = class(TForm)
  13.     Label1: TLabel;
  14.     AbortBtn: TButton;
  15.     procedure AbortBtnClick(Sender: TObject);
  16.     procedure AbortBtnMouseMove(Sender: TObject; Shift: TShiftState; X,
  17.       Y: Integer);
  18.     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  19.       Y: Integer);
  20.   private
  21.   public
  22.     FOldCur: TCursor;
  23.   end;
  24.  
  25. var
  26.   ProgressDlg: TProgressDlg;
  27.  
  28. const
  29.   {text to be displayed at the end of the restructure process:}
  30.   ProgressDlgLastMessage: string = 'Moment please...';
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TProgressDlg.AbortBtnClick(Sender: TObject);
  37. begin
  38.   Tag := 1;
  39. end;
  40.  
  41. procedure TProgressDlg.AbortBtnMouseMove(Sender: TObject;
  42.   Shift: TShiftState; X, Y: Integer);
  43. begin
  44.   Screen.Cursor := crDefault;
  45. end;
  46.  
  47. procedure TProgressDlg.FormMouseMove(Sender: TObject; Shift: TShiftState;
  48.   X, Y: Integer);
  49. begin
  50.   Screen.Cursor := FOldCur;
  51. end;
  52.  
  53. end.
  54.